unit Unit1;

interface

uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, StdCtrls, RzTabs;

type
  TForm1 = class(TForm)
    RzPageControl1: TRzPageControl;
    TabSheet1: TRzTabSheet;
    TabSheet2: TRzTabSheet;
    Edit1: TEdit;
    Edit2: TEdit;
    Edit3: TEdit;
    Edit4: TEdit;
    Edit5: TEdit;
    Edit6: TEdit;
    procedure TabSheet1Click(Sender: TObject);
    procedure TabSheet2DblClick(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  Form1: TForm1;

implementation

{$R *.dfm}

procedure TForm1.TabSheet1Click(Sender: TObject);
begin
  ShowMessage('True');
end;

procedure TForm1.TabSheet2DblClick(Sender: TObject);
var
  I:Integer;
begin
  RzPageControl1.ActivePageIndex:=0;
  ShowMessage(IntToStr(RzPageControl1.ActivePage.ComponentCount));
  for i:=0 to RzPageControl1.ActivePage.ControlCount-1 do
  begin
    ShowMessage(IntToStr(RzPageControl1.ActivePage.ControlCount));
    ShowMessage(TEdit(RzPageControl1.ActivePage.Controls[I]).Name);
  end;

end;

end.
